home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / DATACH.CST / 00216_Script_popUpparamcharts < prev    next >
Text File  |  1999-03-07  |  1KB  |  62 lines
  1. property thePopLocv, popSpritev, popNamev, mySpritev, faraway, fieldObjv
  2. global  popbgSpritev
  3.  
  4. on new me
  5.   set mySpritev = the spriteNum of me
  6.   set popSpritev = mySpritev + 1
  7.   set popbgSpritev = mySpritev - 3
  8.   set right = the right of sprite (mySpritev - 2)
  9.   set top = the top of sprite (mySpritev -2)
  10.   set thePopLocv = point(right, top)
  11.   set popNamev = "param list"
  12.   
  13.   puppetSprite popSpritev, true  
  14.   set faraway = point(-1000, -1000)
  15.   set the loc of sprite popSpritev = faraway
  16.   
  17.   return me
  18. end
  19.  
  20. on register me, theObj
  21.   set fieldObjv = theObj
  22. end 
  23.  
  24. global paramchartredraw
  25.  
  26.  
  27. on mouseDown me
  28.   set the member of sprite popSpritev = member popNamev
  29.   set the loc of sprite popSpritev = thePopLocv
  30.   set the member of sprite popbgSpritev = member popNamev
  31.   set the loc of sprite popbgSpritev = thePopLocv
  32.   put "popped - " & thepoplocv
  33.   updateStage
  34.   repeat while the stillDown
  35.     checkIfInsidev fieldObjv
  36.   end repeat
  37.   
  38.   set the loc of sprite popSpritev = faraway
  39.   set the loc of sprite popbgSpritev = faraway
  40.   
  41.   set name = getPlaneNamev(fieldObjv)
  42.   if name = "" then 
  43.     nothing
  44.   else
  45.     set the text of member "current param" = name
  46.     set paramchartredraw = 1
  47.     setupchart
  48.     --    disSpecs name
  49.   end if
  50.   
  51.   
  52.   set the loc of sprite popSpritev = faraway
  53.   set the loc of sprite popbgSpritev = faraway
  54.   
  55.   updateStage
  56. end
  57.  
  58. on mouseUp me
  59.   
  60.   nothing
  61. end 
  62.